CORTEX USERS GROUP 


T GRAY,1 Larkspur Drive,Featherstone ,Wolverhampton, mest. Midland WV10 7TN 
TEL No 0902 72978 


- - -— wo ee — = ee me ee re = 
~<~— es we wo wr or oe ~-— eof wf 2 © ee - - Se eS ee ae es ee a oe a a ee a ce, es et ee ee aS ee Se ee eS Se SS SS Pm mm 


E SERWA.93 Long Knowle Lane,Wednesfield,Wolverhampton,West Midland WV11 1JG 
TEL No 0902 732659 | | 


CORTEX USER GROUP NEWSLETTER (MARCH 1988) 


ee eee ere eee ere ree ee ms eee ee cee eee ree ee ee ets ee en ee ee ee Oe Oo De oe EE eee 


= ade Ene 
i. Index 
aes Letters | 
De  Mdex Sequential Pascal 
8. More on Canyon and Missile command 
De Adding extra serial ports 
12. Q@basic part 3 | 
16. Adverts | 


REMEMBER TO SEND IN YOUR ARTICLES FOR THE NEXT NEWSLETTER 


LETTERS 


A Rowell Northants comments to newsletter 16 


Page 4 Dick Hall., I have disassembled MDEX.REL but I do not have 
a source copy only a disassembly printout with written comments 
on. If you need any further Shore SnAol on the internals of MDEX 
then just ask. 

Page 3 0.C.Walden., If the precession table pointer in the device 
table for a given disk is set to zero all future access to the 
disk will not use interleaved sectors. This is an easy way to do 
standard disk accesses. Remember to set it back to its original 
value after use or it will not be usable by MDEX. 


A.C.Heslop Tyne—Wear 


My Cortex II has no seperate disk drive case as previously 
available from Powertran. Can you supply one and if so what is 
the price and dimentions. Also I am interested in obtaining the 
MDEX system including Qbasic and Window Ioperate a single 5’’ 
1@@K drive is this sufficiant for MDEX. Alternatively does the 
software exist to run the system with 3.5’° drives. 


The nearest boxes we can find are R.S.components stock number 
9@7-731 which is 342 X 26@ X 7@ at £27.62 or 5@7-719 at £34.19 
which is 430 X 260 X 10@ or possibly their 5@1-626& disk drive 
case designed to hold two 5’°° disk drives mounted one above the 
other at £24.08 all dimensions are W X H X D and prices’ exclude 
V.A.T. Mdex really needs two disk drives to work sensibly and a 
minimum of 360K per drive. — We can’t as yet supply MDEX on 3.5°" 
disks although there is no reason 1t should not run as bong as 
the drives work in the same way as 5°’ or 8’’ drives. Note ~MDEX 
is only available for the TMS99@9 disk controller. | 


Mike Gallagher Rugby 


Can anyone help with my problem. When switching on my Cortex the 
usual Cortex Basic message comes up as normal, but then after a 
couple of minutes indiscriminate symbols start to appear all over 
the screen, and most of them will not even clear when pressing 
the clear button. The problem seems to be getting worse as time 
goes on and at the moment my Cortex is unusable. I‘v tried 
removing all the inputs, including the Keyboard, to no avail I’m 
begining to suspect the CPU. Has anyone any other ideas 7. 


We think it highly unlikely that the CPU is faulty but would 
suspect either the VDP chip or one of its RAM chips or possibly 
the associated XTAL. Try removing one of the VDP RAM chips at a 
time you should get a screen full of the same pattern in every 
location after a clear. If you can achieve this with one RAM 
chip missing without random symbols apearing then try a new RAM 
chip. 


REMEMBER TO SEND IN YOUR ARTICLES FOR THE NEXT NEWSLETTER 
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SEQUENTIAL Pe ais ane yal cian 


Documentary support for Mdex FPascai is very sparse, or horrendously 
expensive. Brinch Hansen‘s cook (ref.1.], cost me almost $60, but it ts not very 
helpful. These notes are intended to help in getting started. They should be 


read alongside the User Manual and a print-out of the Prefix from the master 
disc. The program Copy included works(!) but was written more> ta illustrate 
POnths raised than toa have any enduring usefulness. 


The Pascal Program. 
This must take the form.- a 
Prefix, followed by Definitions & Declarations of ; 

Constants, Data Types, Variables and Routines, (Procedures &. Functions). 
These are followed by the sequence of Statements forming: the ma in. -pAparan 
which will be executed one at a time. © or 
The program is automatically stored on ‘disc after onal Velie: ‘and is ~ 

activated by typing its name and = any parameters on the console. To be 
pedantic,it is the name of the file containing the program which is typed. It is 
permitted, but surely confusing, to use another for the program. - 

“The p¥ogram Copy would be called: - 

Copy (This_file, That file). | 

File names must comply with piven identifier syntax, but may be standard 
Mdex names. The drive number on disc files is not taken as part of the Pascal 
identifier. Device files are named as per Mdex, i.e. Cons.dev, Print.dev, etc, 
This causes some restrictions, see later. 

* Each parameter in the list, more correctly called the Argument bist, may ne 
referenced by number. The system always inserts an extra param af type boolean 
which may be used to vet program performance. This extra one is Payam(l] (or 
Param(.1.) ): so This_file is Param[2], and so on. Ten arguments are allowed, 
aie not peony oned: are set to Niltype. See the record type Argtype in Prefix. 
‘The Peeve - 3 | | | | 7 pe ne | | 
Used by. the authors of the language to hive off all hardware related 
facilities to ease transportability between different implementations. It 
consists. of dummy routines which define the syntax of calls upon them, and 
direct execution to the actual routines within the operating system. Some 
routines must be called before others become effective. 


File manipulation. 
There are two distinct groups for this, they serve to tell the system the 
names and intended use of the file 


1. READ/WRITE. | 
-A call on the Prefix orocedure Writearg activates this group: 
Writearg(inp,source) or Writeargiout, dest) opens 
the files named in the variables Source and Dest 
which must be defined as Argtype. 
This activates the procedures Read, Write, Readpage 
and Writepage which may then be used to access 
their files sequentially from top to eof. | 
The closure call is Readarg/inp, source) or Readarg(out, dest). 
They return a boolean to inform on satistactory 
file usage. | 
2, Open(fileno,filename,found) associates an integer 
with the file by which it is thereafter referenced. 
This can only take the values i or 2, so only 
two files can be open at a time. 
This enables Get, Put and Lengtn. Get & Put can 
set the file pointer to any page so give random access. 
Close terminates access and allawe re-allacation af the file number. 
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lf the conscle 16 descrsted ta the eystem as Lone. dev, all the above file 
routines are appiicable., The random nature of Get/Fut is ignored. However, the 
console may be addressed py calls to two special routines, Display and Accept. 
These transfer single Ascii chars and need no prior activation, (see Procedure 


Context in Copy). 


I/O Ascii restriction. 7 
Fascal can anly accept ascii chars so all ather types will need conversion.. 

Pasedit on the master disc provides much of what is needed for the conso ole. If 
its small demo program is deleted, it can be copied to a user program in place 
of Prefix since that is .alrady present. User’s global Gonstants, vars,etc., 
‘should be placed between the Prefix and Paeeeit: Predefined. conversion 
functions are!- | | - 
ORD (x) The ordinal value of the char (x). (its ascii Cooder 

CHR (x} The char whose code is (x). 

CONV (x) The Real corresponding to integer (x). 

Trunc (x) The Integer | corresponding to the real (x). 


The Lookup procedure locates a nominated file in the directory and if found 
returns a boolean True, and the Attributes of the file (see Prefix type Fileattr 
& Filekind). | 


fe Ht, 


Identify telis the system the program name. This is printed on the console 
before anything else. It is useful as a de~bugging aid, or to indicate the 
source of. results when other programs are called from one running. It is printed 
once ‘only for each phase. Tt is optional and is the sa use of: mee pgm: name 
suring: execution. | | ‘ 


Run « calls a program from one running. The name and params are exactly as would 
be typed for a console call, but two extra variables must be supplied as params. 
They are used after reurn to the Peer rers to show Where and How the called pgm. 
was teminated. : 


Kpeek/Kpoke similar to Basic Peek/Poke 


Xcall calds an Assembler program into action from a running Pascal pgm. (I have 
not used this yet but it seems simple: 


Al] routines esas IQ. 3 

A problem here as WOet use Prefix descriptions of peripherals such as 
Typedevice, Printdevice, etc. I have never had these accepted by the compiler 
which only recognises Mdex Cons.dev, Print.dev.etc. Such routines thus do not 
work. Exceptions are the types Toresult and loparam. Both of these are 
effective. | 


Taskkind. Three tasks are defined, Inputtask, Jobtask & Outputtask. IT have never 
been atle to get out af Jobtask. Brinch Hansen says that Readline/Writeline are 
not effective in Jobtask. They don’t work. 


Program p{var paramiarglist) | 
This is called when the’ pom if activated fram the console. No other 
definition Program must appear. — 


Other Features. Pre-defined operators for:- 


Sets OR _ Union 


= Equal 
Intersection <> Not equal 

* Difference <= Gontained in 
iN Membership >= Contains 


/= ‘Ass aqnment 


Enumeration types 
These nave the expected meaning. Results are always Boolean. 


Boolean RK OR NOT where results are either Faise or True. 


Integer + - * DIV MOD 
Real = € + @> (42 3S + - £ OF the pre-defined functian ABS(»x), 
Arrays ,= = 


Strings « 3 «= 3s 


Records i= = <3 


Storage ecumenenee in bytes. 
Enums: 2: Reals: @: SP re) 16: String of om ehaes M: 


Control Ghars. These must be written in ascii coded form. e.g. MON es 
Cereue wat Line Feed. They are string vars. eres ge ae ee 


Sone sienna Functions. For enumerations, | i, 
~SUCG (x) and PREC Ol return the successor or predecessor value of x (if there 
is one). | Ae 


Arithmetic..Functions. | | ae a 
Brinch Hansen Refli] is silent on this topic. Some which are implemented ares 
ABS(x), SQR(x) square of x, SIN(X). | ee a 

these return a result of: the same type as x , but that must be Real or 

Integer.. rg 7 _—_ 7 a 

COS(x), ARCTAN(x), LN(x) the natural log. 

These must all be Reals. 7 

There must be others, periees somesody Knows? 


| Variable & Universal Parameters. | . *< ae 

When a procedure is given parameters, it may normally use the value supplied 
but is not allowed to change it. These are Constant Params. If the procedure is 
required to change the value, the param identifier must be preceeded by the 
symbol VAR. e.g. Procedure Something (addr: integer: var block: page) a 

Of the two params the routine may change the value of ‘block’, but not ‘addr’. 
Similarly, it cannot always be known in advance what type sf data a variable 
will be called upon to accept. This may be accomodated by writing UNIV in front 
of the identifier. | 

e.g. Procedure Something (univ text. Jing), 

This makes ‘text’ a universal param which can accept. any data type occupying 
the same length as would type char. 


Conclusion. Much more information can be got from reading print-outs of master 
disc programs of »pas. 

Note that in an IF-THEN-ELSE statement, no semi-colon must be used in front of 
Else. | 

Is there anyone with original Mdex Pascal documentation prepared to make it 
available for copying? 7 

Finally, Brinch Hansen mentions several console commands. I can’t find ‘any 
which work. Can you? | - | 


The Program Copy. 
Call from console, 
type zicapy infile,outfile 


Copy transfers data from in to cut. The files can be dise files with Drive 
number, or device files, Cons.dev, Print.dev, etc. [If you can’t remember the 
correct call, just type Copy . A prompt mescage is printed. 


oe 


{ii 

< e { End Prefix } 

113. (&) | 

1i4, { Glotal Declarations for Copy.} 

115% _ : 

116. Const eot = '(:04!5)%! nul = "¢:O:)¢: 

this { These are String Constants but control chars } 

118, { must te written as decimal coded Ascii.3 

119. Var siinteger: 

1270 ok, conscle, found: boolean: 

121. attri fileattr: 
122, textiline: 

123. a | 

124, ( Procedure declarations } 

125 € Note:: If a procedure calls other. procedures, its } 
124. C declaration must fotlow any. for those it calis. } 

127. 

128, Procedure Context (textiline): 

129. Var jtinteger: cichar: | : 

130 (local variables only exist whilst the procedure is } 
igcaer € being executed. They are not accessible from outside.) 
132. Begin | 

133 $f 2. Ot, 

134. Repeat : 

135. ge Pte tts oc t= textlil: 

136 Display (ce): 

137... sUntil c = nl: 

138. End; ( of procedure Context } 

{37% 7 

140. Frocedure Help: 

141. Begin i o ‘7. 
142 Gontext (‘Bad call. Correct form is ‘’Copy (Infile,Outfiletidentifier)’’('10')7) 
143. End: | | | 
144 | | | | 

145. Procedure Error (textiline): | | 

146 (the string passed to this procedure is passed on again to Gontext} 
147. Begin | 3 

144 Gontext (text): 

149 ok := false: 

150. End: 

TA. . Sete: | 
132, Procedure set files: (€ loop -to locate & open both files } 
i153. Var filename:argtype: i:integer: 

tod, (Note this var i is not the same as that used in Conteyt.} 
155. Begin | 

136. ok (= true: 

ae for i ‘= 2 to 3 do 

138. Begin , 

159 with paramCil do 

160 if (tag <> idtype) then Help else 

141, begin 

162 Lookup (id, attr; found): 

163 if found then 7 

144 Begin 

165 Case attr.kind of 

166, scratch, cancode,seqcode: 

167 Error (‘File kind must be ascii(:10')7): 

148 Ascii: 

149, End: ( of Case } 

iO ARG 


a 


\ 
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#P 
170. (&} | | | eae 
71. If i =. 2-then Writearglinp, param{2)), else 
A72. Writearg(out, param{3?): 
“1732. . 2 | aw * 4 aa | 7 
tee End ~ (of If found...,NB no semi-colon here. } 
“175. Else” oe 
“176. Af, i= 2 then Error (/IP file unkmown(:10:)7) 
177. eet else Error( ‘OP file unknown ( ; (10: ae 
178. End: (of If tag...else} 
179. End: {of loop} | ve 
180. End: ——« fof procedure Set_files3} 
VGin ‘4 ae | 
182. Procedure Terminate: (Closes files & vets performance.) 
183. Begin 
184, Write (eot): write (em): | se | | | 
185. Readarg > (inp, param[2]); ( close IP & return status.) 
184. if not param(2].bool then = | 
187. error(’Problem reading IF filed: 10: ae 
188, readarg (out, param(3)): (return OP status I, 
189, if not param€3].bool then. 
190, error(’OPF file Tost(i 10107). 
AML. With param[1] do 
192% Begin tag := booltype: bool ‘= ok end: 
193. { use the extra param to set. performance flag } 
194. End: (¢ of Terminate ) , 
195 


194. Procedure Beavers 


“tthe ‘main ‘progran y nes pane | at 


197. ( Copies standard pages of ascti text. } 
198. { Declare local variables far use } 
199. { within this routine only. ) 
200. Var block: page: eof: baolean: 

(201. Begin | AMET 


202. ~=Repeat 


203, , eeadoaee (block, eof): 

204, ‘Writepage (block, eof): 

205. Until eof: 

206. End: ( of Copytext. ) 

207. 

208. ( end of all Preliainary definitions & declaration } 
a 209.2" : ae | ; 


Copy y 
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Oliver Hulme Hednesford, Staffs. 


If Prem Holdaway or anyone else is still naving trouble 
with the control keys of "MISSILE COMMAND & CANYON" 
games. I think they will find that all the variable 

"A" values require to be increased by 12. A rectified 
listing follows. 


CANYON 


680 IF A=2303 THEN Pl=-1:GOTO 350 

690 IF A=2559 THEN Pl=1:GOTO 350 

700 IF A=21247 AND PO>80 THEN Pl=~-80:GOTO 350 
710 IF A=18175 AND PO0<800 THEN P1=40:GOTO as 
720 IF A€>17919 THEN GOTO 350 ‘ 


MISSILE COMMAND) 


1070 IF A=16895 OR A=21503 OR A=17663: GOSUB 1190 
1080 IF A=2303 AND PX>7:PX=PX-4:GOTO 1120 

(1090 IF A=2559 AND PX<240: PX=PX+4:GOTO 1120 

1100 IF A=3071 AND PY>8: PY=PY-4:GOTO 1120 

1110 IF A=2815 AND PY<152:PY=PY+4 | 

1220 IF A=21503: GOTO 1270 

1230 IF A=176633; GOTO 1280 


Line 1140 will not run, I substituted F730 with F7=3 

I can’t guarantee this is correct but at least it runs. 
Another point worth a mention is that lines 1330,1460 

and 1820 are MULTI-WAY CONDITIONAL GOTO lines. They | 
will not run if “THEN’ is abreviated to ‘:” | 


HAPPY SHOOTING 
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Into onto and out of E.Bus Part 4 — Tim Gray 


Adding extra 9982 serial ports 


The Cortex manual tells us that adding extra input output ports 
to the Cortex is just a matter of adding hardware. This is not 
totally correct as even if the extra hardware were added the 
Monitor and system software would not know unless it were told. | 


The sytem software knows of the presence and location of input. 
output drivers from a table starting at 0084. This table is 16. 
words long with one word entry for each unit... For 9982 devices 
the table contains the C.R.U. address of the 99@2 device and for 

other units the table contains the start address of the deyice.. 
service routine. in order to differentiate 9902 base addresses ~ 
have 1 added to them to make an.odd number. e 


The table in the standard Cortex looks like this :- 


9084 @808 start address for unit 1 screen driver 
Q@086 @0@81 CRU base address for unit 2 0080 RS232 

90988 90181 CRU base address for unit 3 0180 cassette 
@O8A 0754 start address for unit 4 centronics driver 
@@8c TO OBAZ2 all zero, unused units. 


So once a 99@2 is added to the Cortex its CRU base address must 
be included in this table. ie to add a 9902 as unit 3S with a base 
address of @24@, location @O@8C should be set to 0241. . be os 
Using the basic statement BAUD 3,4800 will now. initialise the 
unit 3. 9982 to 480@ baud. id a 


The problems dont stop here though because for some reason the. 
Cortex has no interupt 4 connection to the E.Bus. As control of . 
9902 devices for normal input output depends on interrupts 

something must be done to enable its use. 


Interrupt. 1 patch 


te ee ee a nee ee eee cee oe oe omen ee cw ape ae aoe 


It is possible to use the interupt 1 connection on the E.Bus’ to 
handle 99@2 by performing the following patch. 


Change 0004 to ED22 to set int 1 WP to the correct value 
Change ED3A to F200 set user vector. to patch start address 


Enter the patch programme: — 


F200 
F262 
F204 
F209 
F2QA 
F20E 
F21@ 


F300 
F204 
B20C 
LEO2 
0420 
1DO2 
0380 


WP 
PC 


LI R12, >0000 


SHZ 


BLWP @°>001@ 


SBO 


RTWP 


branch to interupt 4 service 
enable —-INTEN 


REMEMBER TO SEND IN YOUR ARTICLES FOR THE NEXT NEWSLETTER 


172° 


CORTEX USERS GROUP NEWSLETTER 1998 


This patch passes all level one interupts to the interupt 4 
service routine. To use it setup the code as above, it need not 
be at this location, then set board rate to enable input or unit. 
to enable output. Then enable ‘peeCURES <= BASE Or CRB(2)=1 


The extra 7902 on the e. Bus should now respond as normal. 


Hardware mod 

As an alternative approach you may wish to permanently modify the 
computer for interrupt 4 from the E.Bus in place OF interupt | 

jG yo do here are the details re. 


Cut the track Linking IC16. pin 4 to pin 2 
Connect IC14& pin 4 to pin - ‘ ete ate 
Cut track linking ICié pin. to ICé1 pin a 
connect ICié pin 3 to IC1& pin 1 


Bus —-INTEN will now cause an interupt 4 request. 


Extra 9902 Seer 


I have presented here a Circuit of a 9902 E.Bus card that I have 
installed on my Cortex and tested in both of the above modes of 
operation. = | | a oe 4 : | | 


Note that the -CTS input is connected to the -DSR_ input this: 
allows faster responce to a request from the receiving device not 


to send more data yet. It is a simple mod that can also be 
performed on the internal RS232 9982. Also the circuit feeds an 
inverted —-INT out as CTS this works if receive interupts are 
enabled as it stops the sending device from sending any more — 


data until the interupt has been serviced. 


These simple changes to the normal circuits allow a much faster 
data rate to be used without feer of lass of data by using more 
efficient handshaking. A simmilar mod can also be used on 780 
type circuits using the Intel 8251 by uncsiac the RXRDY output 
that 1s usually used to request interupts. | | 

INT REA 


: 25 ae O Se 
mil ($4 + CTS 
Ht coe ae 
a 
76 


DATA 
QoS 
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Q@BASIC.~B N D Osmond. 


A QBASIC Programme. can be split into: Seperate sections & compiled: 


‘seperately. The advantages are:-compilation . is. quicker as only a small ©. 
‘section of. the programme needs to be be compiled instead of the whole 


programme, handy. if the programme has: to: ‘be. modified at a later date. 


~AlSO @ library of useful routines can be! ‘compiled, * ‘stored & used as 


needed in future programmes, thus saving time. A: Qbasic Programme) may be 
a Main programme plus Sub programmes. 3 : 


The @basic Compiler joins your programme plus programmes from its own 
libiary at compilation time to form an executable programme,to do this > 
it uses a MDEX system programme LINK to join.the various programmes. 


On the Qbasic disc is a file called QLINK, it contains commands for 
LINK. To enable me to link my Pregrennes in @basic I have added the 
instruction Pe CORMAN: LNK. = | a 7 


File QLINK 


in baslib.rel 


in @2/command. Ink 
loc qbasic.loc 
fetch | 

in backstop: rel 


Aes 
. wae : 


map 
end 1 


-2/Command.ink is a file on Drive 2,which I have created. When writing 


my Qbasic programmes , it would hold linker instructions such as” 


LOC 2/SALE.LOC 2/NUMBER , which identifies each of the file names 
(2/SALE,2/NUMBER) as a table of contents files. Also you can switch 
from one set of contents to another,simply by inserting a period in 
column one of the file.If a period is in column one then the Linker 
will take no. notice of the instruction (see me for modified linker) 


In the- example below the only instruction in force are for programme 


2/SALE. 


File 2/COMMAND.LNK 


ED CE ee RE CES EEE CREE Came RET CEE CITE 


, COMMAND.LNK DISC-ND1 


loc 2/sale.loc 2/number. Loc 2/y-n.loc 2/key.loc 


»~Heat 


-loc 2/heat.loc Z2/number.loc 2/space.loc 2/uline. loc 


.Zrm-Budget pom 


? 


»loc 2/zrm.loc 2/key.loc 2/number.loc 2/pound.loc 2/qprint. loc 


[7° (2 


If nothing is put into Command. Ink, ie: - if a programme is being 
developed that required no sub programmes the Linker will output an 
error msg but will cantinue linking. The files suffixed .loc are the 
table of contents files,each line will identify the Te eeter file 
(sub or main programme) & its external symbels> . 7 oe 


File 2/NUMBER.LOC 


2/number.rel numl,num2,nums,num4, nums 
2/number.rel numé, num?7 


The sub programme Number has seven @xterne! eymsere num to pomee more 
of this later. a a. 


If the sub programme Number is a standard routine used in--many 
programmes then it’s relocatable file Number.rel can be’ put on the 
@basic system disc & Number.loc added to Qbasic.loc . If the sub pgm 
Number is used in a G@basic programme anly the label numi to num? need 
to be defined in the programme everthing else is then automatic . The 
above is nat as complicated as it sounds,but in daing it this way it 
needs to be done once only .Compiling & Linking are simpler . More 
details of the Linker can be found in the MDEX Manuel. 


If when writing your @basic Source files you are using the MDEX editor 
Window It can be configured sa that on exit from the file it will 
automatically compile the source file. | | th 


If the Main programme uses two Sub programmes then the instruction 
to link is @LINKER MAIN=MAIN,SUB1,SUB2.I¢ more than 2 sub programmes 
are to be linked then the MDEX Linker would have to be used which is 
a lot more work,but if the Command.Ink & .loc files are set up then 
the single command QLINKER MAIN will link no matter how many sub pgms 
there are.If over a period of time the programme has” to be modified 
all is automatic. | 


As stated earlier, routines may be compiled & saved for further use if 
as I do you store them on a seperate disc,then you would save three 
files for each sub programme,the Source,relocatable & .loc file , so a 
routine called Number would have the following files. 


NUMBER. BAS 


NUMBER. REL 
- NUMBER.LOC 


When compiling a Main programme then Number.rel & Number.loc need to 
be copied onto the same disc as Main at linking time . If it is a 
standard routine then the contents of Number.loc will already be in 
@basic.loc & Number.rel will be on the Qbasic disc , then after the 
labels have been defined in the Main programme Linking is automatic. 
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The above sub. programme Number is an input | rautine it Sa, accept | 


numerical input anly or alphanumeric Anput, the. Reman of | Chars on.” | 
input can be fixed & various: input. messages, c “be. displayed 0 ALE eee 
the various types of input can be set up in Abe. Sande, programme _ then 
passed to the Sub programme. TI’ 11 start. with the “sub: ‘programme ‘Number 


& show. how it used in the Main prea’ anes 


First the @Qbasic statement: -__ | | De so eee 
ENTRY external name=internal name 


Therefore the Sub programme hunter uses a variable. LHOLD®. (see below) 
the value of which is made available: “to the Main programme or other 
Sub programmes.NUM4 is the external name, LHOLD% is the internal — name. 
ENTRY NUM4=LHOLD% ) ghee 

So Number makes available the. value in LHOLD% via. _NUM4_ this. value can 
be changed or tested by any other programme. Note - ‘one. external name 
must be reserved for the programme. Defined name in this. case it is 
FN. NUMBER. : 


EXTERNAL external name=internal name ~ 


External is complementary to Entry it. declares that the. internal name 


is not defined in this programme but_ ‘is. defined: in some other pgm 
which has the external name in an Entry statement, #0 - for: the Main pgm 
to use the variables in Number: then. ‘they have. ta be declared in the 
Main programmes EXTERNAL statements. fete es . <2 


(MAIN. BAS} 


EXTERNAL numL=fn.number,num4=Lhold% (define variables etc in Number } 


_& 


Lhold%=4 | | “{lhold% to. pass to number 4 
-DUMMEY=FN. NUMBER | {call sub programme number } 
END 7 


If a name is put in the Subprogram statement then the name will be 
printed on the Linker memory map.Note the External statement the pgm 
is using variables from the Qbasic library.The Qbasic varibles are few 
as the Manual does not give much information .The construction of 
Modules is non-existant I’ve had to sort it out myself , so feedback 
would be welcome. 


After number has been called it will return to the calling programme 
similar to a subroutine call.Below is a programme segment from Number. 
Any reference to variables includes strings , subscripted strings & 
subscripted variables. 
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{STD PROGRAMME MODULE N D Osmond OCT 1986 . 


Sua CEE Oe OEE oS GE GES SS GY ee ee ES LS A RE CS ED CTT —— on 


FILE NUMBER. BAS 
This routine will except numerical 

input anly plus a decimal point 

the input length can be controlled. 

Or char depending an Char.flag%. 

Inputs. | os | ee 
CHAR.FLAG%.set for char/reset for numbers. 
LHOLD%.....Input length. 

LABELS.....Input prompt. 

Output. 

HOLDS......-Output | 
DEC%.......59e@t no decimal input. 
MINUS%.....Set no minus input. } 


SUBPROGRAM NUMBER.n 


ENTRY numl=fn.number, num2=hold%, num3=labelS,num4=lIhold%,\ 
numS=char.flagk,numé=deck, num7=minus% 


EXTERNAL cchech=cchech% 


DEF FN.NUMBER 

%DEBUG . 7 oe Bese 
CCHECH%=0 a {no echo on input} 
BSPACES=CHRS(8) +" "+CHR#(3) +CHRS(7) 

CLEARS=" "¥35 © | 


Cpgm body}. 


FEND 


END 


Strings may be used in the Entry & External statement so can 
Subscripted strings & variables in the form ENTRY mainl=WEEKDAYS$() 
note parenthesis is left blank. This is the last feature on QBASIC hope 
you have all found it interesting. , 


ID. 1S 


Cortex User Group Sale Items 


Hardware 

R.G.B. interface P.C.B | ‘£8. 88 
Centronics P.C.B | £7.00 
E.Bus 512K DRAM P.C.B plated through hole £40.80 
Externel Video interface P.C.B nee £15.80 
Disk controller WD2797 + P.C.B Cortex I _- * £55.00 
Disk controller WD2797 + P.C.B Cortex II. | £528.82 
E.Bus interface complete Kit -* £30.99 
E.Bus 8 X 8K EPROM socket card built but no EPROMS £30.80 
E.Bus 4k RAM 8K EPROM socket 16 1/0 lines ex equipment £15.00 
TMS99@G@2 UART IC’s £2.00 
74LS612 Mapper IC’s - £25.00 
74LS611 or 74LS613 Mapper IC‘s (req pull up Rs) £12.00 


Other IC’s in stock please write in for quote 
ae my 


Software all disk formats please specify when ordering 


CDOS basic disk system 1.20 for TMS9999 £45.08 
CDOS basic disk system 2.00 for WD2797 FAS. OB 
Wortex word processor + spelling. check by J. Makenzie £15.08 
Drawtech graphics drawing package by Tim Gray £20.82 
Menue generator by A.R.C. Badcock : £19.99 
Two pass assembler by R.M.Lee £14.00 
Two pass asembler by C.J. Young £15.08 
Cdos utilites disk —- copy charge ‘only | £2.88 


Cdos programes and games all £2.5@ each :- 


ARCHIE ASTEROID BREAKOUT BURGLAR CATERPIL C-PEDE 


CANYON COTELLO FIREBIRD FROGGER GDESIGN GOLF | 
HUNCHBACK INVADERS MAZE MAZE-3D MBASE MICROPED 
MIS—COM MUNCHER NIBBLERS N-ATTACK OLYMPICS P.BOAT 
PENGO PONTOON RESCUE = S-ATTACK SPACE-BU THE-ZO00 
TRAG VADERS WALL X/@ 


MDEX Software all formats please specify. 


MDEX CORE with debug monitor text editor and basic £10.82 
MDEX ASM & LINK assembler and linker £19. @@ 
MDEX SYSGEN system generation kit 7 | £16. 0G 
MDEX WORD word processor | £10.00 
MDEX P.D.S. all the above in one package £30.00 — 
MDEX S.P.L. system programming languages £19.00 
MDEX META compiler generator oes £14.08 
MDEX QBASIC basic compiler £iS5.06 
MDEX PASCAL sequential pascal | £10.00 
MDEX WINDOW full screen editor | £15.00 
MDEX SPELL spelling checker £14. 0@ 
MDEX utilities copy charge only £2.08 


REMEMBER TO SEND IN YOUR ARTICLES FOR THE NEXT NEWSLETTER 
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